* comp.c (emit_mvar_access): Fix speed 1 compilation

At speed 1 propagate does not run and all mvars are allocated in array
0.

diff --git a/src/comp.c b/src/comp.c
index 3205a29a1040a815418bd227a5283d4c83836c13..d72d6acc8efa80cf7de21030b9e171134507bf7e 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -388,7 +388,7 @@ emit_mvar_access (Lisp_Object mvar)
 
   EMACS_INT arr_idx = XFIXNUM (CALL1I (comp-mvar-array-idx, mvar));
   EMACS_INT slot_n = XFIXNUM (mvar_slot);
-  if (comp.func_has_non_local || !SPEED)
+  if (comp.func_has_non_local || (SPEED < 2))
     return comp.arrays[arr_idx][slot_n];
   else
     {